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Summary 


This  report  describes  a  dual  channel  radiowave  propagation  data 
acquisition  and  transmission  system  developed  for  communication 
system  performance  monitoring  at  the  Naval  Undersea  Weapons 
Engineering  Station,  Keyport,  Washington.   The  Data  System  is 
collocated  with  a  repeater  in  a  two  section  UHF/VHP  microwave 
telephone  system  and  collects  and  stores  statistical  informa- 
tion on  signal  power  for  each  of  the  two  sections.   These  data 
may  be  transmitted  upon  command  from  the  remote  repeater  site 
to  another  computer  for  processing.   Data  transmission  is  via 
the  dial-up  telephone  network.   Real-time  remote  display  of 
signal  levels  is  also  possible. 
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I.   Introduction 


A.   Background 

In  an  earlier  report  [1],  the  design  of  a  (single  channel) 
Radiowave  Propagation  Data  Acquisition  System  was  described. 
This  system  consisted  of  a  sensor  subsystem  containing  the  RP 
hardware  and  a  data  acquisition  and  processing  system  contain- 
ing the  controller/processor  and  associated  instruments. 

The  initial  use  of  this  system  will  be  at  NUWES,  Keyport, 
WA  to  monitor  the  performance  of  a  two  section  VHP/UHF  tele- 
phone system  employing  a  single  mountain  top  repeater.   The 
Propagation  Data  System  will  be  co-located  with  the  repeater 
and  will  thus  have  simultaneous  access  to  the  RP  carriers 
transmitted  from  each  of  the  two  terminals  in  the  telephone 
system.   Thus,  propagation  data  for  each  section  of  the  tele- 
phone system  may  be  obtained.   This  application,  however, 
requires  some  capabilities  which  the  Propagation  Data  System 
described  in  [1]  does  not  have.   Two  channels  are  required  to 
accomodate  the  two  sections  of  the  telephone  system  and  because 
of  the  inaccessability  of  the  site  a  data  transmission  capabil- 
ity is  required. 


B.   Purpose 

The  purpose  of  this  report  is  to  describe  the  realization 
of  a  Dual  Channel  Radiowave  Propagation  Data  Acquisition  and 
Transmission  System  for  use  at  NUWES,  Keyport,  Washington.   The 
present  system  is  an  expansion  of  the  system  described  earlier 
[1]. 

Section  II  of  this  report  describes  the  telephone  communi- 
cation system  and  contains  path  loss  calculations.   Section  III 
describes  the  hardware  required  to  implement  a  dual  channel 
system  and  to  provide  a  data  transmission  capability.   Section 
IV  briefly  discusses  the  software  used  with  the  Data  System  and 
the  Appendices  contain  program  listings. 
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II.   System  Calculations 


The  several  torpedo  ranges  operated  by  NUWES  are  linked  to 
the  main  base  at  Keyport  by  a  PM/PDM  VHF/UHF  telephone  system. 
The  Nanoose  Range  is  served  by  a  12  channel  system  with  termin- 
als at  Bangor  and  Winchelsea  Island  linked  through  a  repeater 
located  on  Lookout  Mountain  (el.  2667  ft.).   Figure  1  shows  the 
geographic  layout  of  the  communication  system  and  the  four 
transmission  frequencies.   System  calculations  which  follow  are 
based  on  minimum  monthly  median  surface  refractivity  and  assume 
an  effective  earth's  radius 


KR  = 


R 


1  -  .0466  exp( .005577NS) 


which  has  been  shown  to  accurately  model  the  atmosphere  under 
normal  conditions  In  the  continental  USA  [2]. 

The  climactic  conditions  existing  over  the  radio  path  are 
assumed  similar  to  those  at  the  nearest  weather  station, 
Tatoosh  Island  (48  24N,124  36W)  which  is  located  just  off  the 
tip  of  the  Olympic  Peninsula.   Data  from  ref  [3]  and  [4]  show 
surface  refractivity  as  follows: 

Minimum.  Ns  290  (K=1.3D 

Minimum  monthly  median  Ns  320  (K=1.38) 

Maximum  monthly  median  Ns  340  (K-1.45) 

Maximum  Ns  355  (K=1.5D 

The  minimum  monthly  median  surface  refractivity  occurs  in  the 
January-March  period  and  the  maximum  monthly  median  refracti- 
vity accurs  in  August. 

Path  profiles  for  minimum  monthly  median  refractive  condi- 
tions for  each  path  are  shown  in  Figures  2  and  3.   These  pro- 
files show  smooth  earth  diffraction  on  the  Winchelsea  -  Lookout 
path  and  knife  edge  diffraction  over  the  first  hill  on  the 
Bangor  -  Lookout  path.   The  diffraction  loss  will  vary  somewhat 
between  the  extremes  of  surface  refractivity  (290  <  Ns  <  355). 
For  the  Winchelsea  -  Lookout  path  the  variation  of  smooth  earth 
diffraction  loss  has  been  calculated  to  be  8  db. 

The  received  signal  power  may  be  calculated  from 

?r  -  Pt  -  Ls 

Pr  =  received  signal  power  in  dbm 
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Pt  =  transmit  power  in  dbm 
Ls  =  system  loss  in  db 
System  loss  is  calculated  as 


Ls  =  Lbf  +  Ld  "  Gr  "  Gt 


where 


/   47Td   ,2 

L   =10  log   ( r — ) 

bf        610    x 

L^  =  diffraction  loss 

G^  =  transmit  antenna  gain 

Gr  =  receive  antenna  gain. 

Table  I  lists  the  system  parameters  necessary  to  carry  out 
the  above  calculations  and  Table  II  gives  the  results  of  the 
calculations  for  minimum  monthly  median  refractive  conditions 
(Ns  =  320). 

The  calculations  show  that  the  received  signal  levels  are 
-53.4  dbm  from  Bangor  and  -64.5  dbm  from  Winchelsea.   Line 
losses  have  not  been  included.   Signal  levels  measured  on 
9/28/78  were  -54  dbm  from  Bangor  and  -60  dbm  from  Winchelsea 
indicating  reasonable  agreement  with  calculations.   These 
calculations  of  minimum  monthly  median  signal  levels  provide  a 
point  of  reference 


System  Parameter 

Bangor 

-  Lookout 

Winchelsea  -  Lookout 

Transmit  power 

100  W 

100W 

Transmit  Antenna  Gain 

12.5  db 

12.5  db 

Receive  Antenna  Gain 

9  db 

9  db 

Frequency 

291.3  MHz 

265.1  MHz 

Distance 

114  km 

143  km 

Transmit  Antenna  El. 

520  ft 

248  ft 

Receive  Antenna  El. 

2727  ft 

2727  ft 

Table  1.   Telephone  System  Parameters 
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Calculations 

Bangor  -  Lookout 

Winchelsea  -  Lookout 

Lbf 
Ld 
LS 
Pr 

122.9 

2db  (H/H;l  =  .29) 
103.4  db 
-53.4  dbm 

124  db 
12  db 
114.5  db 
-64.5  dbm 

Table  2.   Summary  of  Calculations  of  System  Loss 


for  the  specification  of  hardware  for  further  signal  monitoring 
as  described  in  the  following  section. 
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III.  Hardware  Configuration  for  Data  Acquisition 


A.  RP  Hardware 

This  section  addresses  the  adaptation  of  the  basic  Radio- 
wave  Propagation  System  described  previously  [1]  to  the  present 
measurement  problem.   The  present  situation  requires  monitoring 
of  signals  on  two  different  frequencies  using  a  mechanically 
tuned  receiver.   Additionally  the  signals  differ  in  power  by 
about  10  db.   The  problem  is  therefore  one  which  requires 
sampling  the  two  signals  and  presenting  the  data  to  the  receiv- 
er on  a  single  frequency. ,   It  is  also  required  that  the  anti- 
cipated variations  of  power  level  for  both  signals  fall  within 
the  instantaneous  dynamic  range  of  the  receiver. 

The  RF  hardware  used  to  implement  the  monitoring  of  two  RP 
channels  is  shown  in  Figure  4.   The  two  signals  (f]_  =  265.1 
MHz,  f2  =  291.3  MHz)  are  routed  from  their  respective  anten- 
nas to  3  db  power  splitters.   The  power  splitters  provide  out- 
puts to  the  communication  system  to  permit  its  normal  and 
undisturbed  operation  and  to  the  acquisition  system  for  signal 
monitoring.   The  outputs  to  the  acquisition  system  are  then 
routed  to  a  power  combiner,  the  output  of  which  drives  a  low 
noise  (F  =  2.5  db)  RF  amplifier.   The  output  of  the  low  noise 
amplifier  is  split  into  two  channels.   In  one  channel  a  265.1 
MHz  bandpass  filter  recovers  the  Winchelsea  -  Lookout  signal 
and  provides  limited  rejection  of  the  Bangor  -  Lookout  signal 
and  any  other  out-of-band  interference.   In  the  other  channel  a 

291.3  MHz  bandpass  filter  passes  the  Bangor  -  Lookout  signal 
while  providing  about  30  db  rejection  of  the  Winchelsea  - 
Lookout  signal.   The  Bangor  -  Lookout  signal  Is  mixed  with  a 

556.4  MHz  local  oscillator  signal  and  the  intermediate  differ- 
ence frequency  at  265. 1  MHz  is  recovered  by  bandpass  filtering. 
The  L0  provides  about  30  db  rejection  of  the  Winchelsea  - 
Lookout  signal  and  in  combination  with  the  bandpass  filter  pre- 
ceeding  it  gives  about  60  db  of  channel  separation.   Thus  the 
outputs  from  the  two  filters,  both  at  265. 1  MHz,  are  the  sig- 
nals from  Winchelsea  and  Bangor  and  these  are  provided  as 
inputs  to  the  SPDT  PIN  diode  switch. 

The  primary  inputs  to  the  265. 1  MHz  filters  are  the  desired 
signals  at  265.1  MHz.   In  each  case,  however,  the  signal  from 
the  opposite  channel  is  also  present  with  a  frequency  offset  of 
26.2  MHz.   The  filters  provide  only  limited  rejection  of  these 
undesired  signals.   The  necessary  rejection  is  provided  by  the 
receiver  which  is  operated  with  the  IF  passband  set  to  500  kHz. 
The  filters  in  both  channels  serve  the  purpose  of  suppressing 
the  LO  frequency  and  undesired  mixer  products. 

The  PIN  switch  is  a  critical  component  since  it  must  change 
states  rapidly  and  must  also  provide  enough  isolation  so  that 
the  desired  dynamic  range  may  be  realized.   The  switch  chosen 
for  this  system  was  a  General  Microwave  ultra  wideband 
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(.2-18  GHz)  switch  with  integral  driver.   The  isolation  at 
265.1  MHz  is  in  excess  of  60  db  and  the  switching  time  is  less 
than  500  ns.   The  switch  logic  control  signal  is  received  from 
the  HP  9825  controller  via  the  HP-IB  (IEEE  488)  bus  using  an 
interface  designed  for  that  purpose.   The  two  switch  states  are 
set  by  executing  the  trigger  commands,  trg  726  or  trg  727. 

The  output  of  the  PIN  switch  is  fed  to  the  receiver  in  the 
Sensor  Subsystem.   Either  of  the  two  signals,  Winchelsea  or 
Bangor  may  be  selected  by  the  switch.   The  receiver  must  be 
adjusted  to  provide  an  instantaneous  dynamic  range  which  will 
accomodate  the  expected  variations  in  signal  amplitude.   The 
dynamic  range  requirements  are  minimized  if  both  signals  are 
input  to  the  receiver  with  approximately  the  same  median  level. 
This  may  be  accomplished  by  independent  adjustment  of  the  gain 
in  each  channel.   For  the  hardware  configuration  shown  in 
Figure  4  the  gain  difference  between  the  two  channels  is  due  to 
the  conversion  loss  of  the  mixer  (approximately  6  db)  and  the 
difference  In  the  insertion  loss  of  the  filters  in  the  two 
channels.   The  stronger  of  the  two  signals  (Bangor)  is  routed 
through  the  channel  containing  the  mixer  and  the  additional 
attenuation  in  the  opposite  channel  is  selected  to  make  the 
median  signal  levels  approximately  equal  at  the  output  of  the 
PIN  switch. 

The  output  from  the  PIN  switch  is  routed  to  the  receiver. 
From  this  point  each  of  the  two  signals  is  processed  as 
described  in  [1]. 


B.   Data  Transmission  Hardware 


The  transmission  of  data  from  the  remote  (Lookout  Mountain) 
controller  to  a  local  computer  at  NPS  Monterey  is  accomplished 
as  shown  in  Figure  5.   The  primary  task  which  is  performed  is 
the  transmission  of  data  stored  in  the  tape  files  of  the 
Lookout  Mountain  controller  to  another  HP  9825  computer  via  the 
dial-up  telephone  network.   The  data  Is  stored  in  the  same  tape 
files  of  the  second  HP  9825.   A  copy  of  the  tape  files  in  the 
Lookout  Mountain  controller  is  therefore  obtained.   A  brief 
description  of  the  operation  of  this  subsystem  follows. 

The  transfer  of  data  is  initiated  by  manually  dialing  the 
number  of  the  telephone  at  the  remote  location.   The  remote 
modem  answers  automatically  and  places  an  audio  carrier  on  the 
line.   The  local  phone  Is  then  placed  in  the  data  mode  which 
connects  the  local  modem  to  the  line.   The  local  computer 
program  is  then  run.   The  program  prompts  the  operator  for  the 
necessary  Input  data.   Contact  is  then  established  with  the 
remote  controller  and  data  is  passed. 
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The  transmission  speed  for  the  data  is  relatively  slow  com- 
pared to  the  speed  with  which  the  remote  controller  can  oper- 
ate.  The  remote  controller  is  therefore  able  to  continue 
acquiring  new  data  during  the  time  it  is  not  transmitting  pre- 
viously stored  data. 

In  addition  to  the  primary  function  of  transmitting  stored 
data,  the  system  also  provides  the  option  of  real-time  readout 
of  the  signal  levels  at  the  output  from  each  antenna.   This 
permits  the  signal  levels  to  be  checked  at  any  time  without 
waiting  for  the  storage  of  data  which  only  occurs  once  each  day 
at  2400  hours. 

The  transmission  of  data  occurs  in  part  over  the  Bangor- 
Lookout  section  of  the  system  being  monitored.   It  is  therefore 
required  that  this  section  of  the  system  be  operating  with  an 
adequate  signal  level  in  order  for  data  to  be  transmitted. 
However,  even  if  the  signal  level  is  inadequate  for  data  trans- 
mission, the  signal  levels  will  still  be  monitored  and  the  data 
may  be  transmitted  time-late. 


C.   System  Block  Diagram 

Figure  6  shows  a  simplified  block  diagram  of  the  complete 
system  as  configured  for  the  NUWES  measurements.   The  Switching 
Subsystem  (Figure  4)  allows  continuous  sequential  sampling  of 
the  two  RF  signals  received  on  Lookout  Mountain.   The  output 
goes  to  the  Sensor  Subsystem  [1]  which  provides  a  detected  out- 
put that  follows  variations  in  carrier  signal  amplitude.   This 
output  is  sampled  by  the  Data  Acquisition  and  Processing  Sub- 
system.  The  computer  in  this  subsystem  provides  the  necessary 
control,  calculates  the  desired  statistical  measures,  stores 
the  data  and  transmits  it  on  command  from  another  computer. 
The  actual  transmission  of  data  is  accomplished  through  the 
Remote  and  Local  Data  Transmission  Subsystems  which  link  the 
two  computers  together  via  the  telephone  lines. 
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IV  System  Software 

The  software  developed  for  use  with  the  system  described  in 
this  report  consists  of  three  separate  programs. 

A.  Acquisition  System  Program 

This  program  resides  in  the  controller/processor  at  the 
remote  monitoring  location.   It  is  an  expanded  version  of  the 
program  described  in  [1]  as  necessary  to  accomodate  two  RP  sig- 
nals.  In  addition  it  contains  the  subroutines  necessary  for 
the  transmission  of  stored  data  or  real  time  readout  of  signal 
levels. 

B.  Data  Transmission  Program 

This  program  Is  loaded  from  tape  into  a  local  HP  9825  desk- 
top computer  when  data  is  to  be  transmitted  from  the  remote 
computer.   The  program  contains  all  the  prompts  necessary  for 
the  operator  to  accomplish  the  task.   At  the  conclusion  of  this 
program  the  desired  data  files  will  have  been  transferred  from 
the  remote  computer  tape  to  the  local  computer  tape.   In  the 
case  of  real-time  readout  of  signal  levels,  the  dbm  levels 
appear  in  the» local  computer  display. 

C.  Data  Printing  Program 


This  program  provides  a  paper  tape  printout  of  the  data  for 
each  of  the  two  channels  after  it  has  been  transferred  to  the 
tape  files  of  the  local  computer.   The  data  is  coded  to  permit 
more  rapid  transmission.   The  coding  is  done  before  the  data  Is 
stored  on  tape  at  the  remote  computer.   The  data  printing  pro- 
gram provides  the  necessary  decoding  in  the  local  computer 
prior  to  printing. 

A  detailed  discussion  of  system  software  may  be  found  in 
ref.  [5]  and  this  is  not  repeated  here.   Program  listings 
appear  in  the  Appendices. 
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Conclusions  and  Recommendations 


A.   Conclusions 


The  Dual  Channel  Radlowave  Propagation  Data  Acquisition  and 
Transmission  System  described  here  is  capable  of  continuous 
monitoring  of  the  strength  of  two  radio  signals.   The  system  is 
designed  to  collect  data  without  disturbing  the  communication 
system  being  monitored.   The  system  is  configured  from  commer- 
cially available  hardware  except  for  a  PIN  switch  interface 
which  was  custom  designed. 

The  Data  System  samples  each  signal  at  a  rate  of  approxi- 
mately 3*33  samples/second  and  computes  signal  power  for  each 
sample.   Average  and  median  signal  power  is  calculated  for  each 
hour  of  the  day  and  fades  of  depth  10  db  to  30  db  relative  to 
the  median  for  the  previous  hour  are  counted.   A  daily  distri- 
bution of  signal  power  is  generated  and  all  processed  data  are 
stored  on  tape  at  the  conclusion  of  each  day.   Tape  files  hold 
data  for  four  months  after  which  old  data  is  overwritten. 

The  Acquisition  and  Processing  Subsystem  controller  may  be 
interrupted.   On  interrupt,  the  controller  will  transmit  the 
data  stored  in  tape  files  or  the  present  signal  power  levels  as 
requested  by  a  second  computer.   This  operation  is  carried  out 

over  the  telephone  lines. 

« 

The  system  will  run  unattended  and  has  the  capability  to 
bootstrap  itself  in  the  event  of  a  power  failure.   The  digital 
clock  has  backup  battery  power.   After  a  power  failure  a  ten 
minute  warmup  period  is  provided  to  allow  all  equipment  to 
stabilize  before  signal  monitoring  is  resumed. 

In  prolonged  periods  of  laboratory  testing  the  system  has 
operated  reliably. 


B.   Recommendations 


In  any  future  implementation  of  a  similar  system,  Hewlett- 
Packard's  new  replacement  for  the  HP  59^03A  CCI  should  be  con- 
sidered for  use.   This  newer  unit  should  be  more  transparent, 
require  less  programming  for  its  operation  and  should  thus  be 
easier  to  incorporate  into  the  system. 
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Appendix  I.   Acquisition  System  Program 


•5  n  ?      d  b  i' 


H 


-    :  !  r; 


3 '     si  r    ?  '  0 

4  *      0  t"i     6  f"  ■'      "  r"  £  S  £  t 

5  '      it      f  1  ?  1  5  W r t 

7  £  1  „  1  j  fl »  N  j  u  a  1 1 

269 

6  '     red    7  9  S ?  fl $ 

7  3     if    n  u  fi  ( fl  $  E  2  3  3 
#32!  3  t o    6 

O  J        ■■■   '     3       t    ^ i 

9 :     *  r  3    7  2  2  ?  f  s  d 

722?  fl 
13:     tf'?    726 
11:     tr-3    7  2  2  5  r  e  d 

722  jh 
1  2  :    •,'  a  1  I  fl  *  L  7  ? 

83  )*D 
13;     if'    f  1  g 9    a n d 

u  a  1  i-  B  $  C  3  ?  6  3  )  =  8  5 

?to    IS      . 

1  4  :    y  o.  1  i  B  $  E  f  j 
83  >+F 

15:     if    D # F  :  g s b 
"ne w    h o u r  " 

ib=      if     y  a  1  f  fl  $  [  5  ? 

6  3  J  #  y  a  1  ( B  $  C  5  s 
6  3  )  ?  -5  s  b    "  n  e  w 
d  o.  y 

18.;     fl  $  -+  B  $ 
i 9 :     if    fl  —  0  ?  C  E  2  * 
D  J  + 1  3  C  [  2  j  0  3  j 

■q  f.  q       3  4 

2  6  :     i  9.1  o*3- (  abs  (  fl  3 

!   3  fl 

21-     , 95*fi-47.5+ 

n  0  3  u  8  3  2  3  2  i  fl  + 

fl  '■  -  4  5  j  '"'■  i.  2  3  D 1  + 
1  3  C  [  2  ?  0  ]  3  ?  t.  o    34 

2  3  •     C  C  3  3  D  3  +  1  9 1  (  fl 
.-- 1  ©  J  +CE3»D3 

2  4  ^     C  [  1  ?  D  3  +  1  3  C  [  1 


26:     fl  E  H  3  + 1  3  fl  E  H  3 
2  7;     if     f  1  -3 6 j  fl 3 E 3 

B  ?  3 t  o    3  4 
2  3:     if     fl  < E - i  0 

o.  fi  d    E  -  1  0  ■■.  B  5  C  L  5  3 

D  3  + 1  *  C  E  5  ?  D  3 
2  9:     if    fl  <  E - 1 5 

a  n  d    E  -  1  5  <  3  j  C  E  6  ? 

D  3  +  i  *  C  C  6  3  D  3 
33:     if    ft < E - 2 9 

a  n  d    E  -  2  0  <  B  5  C  [  7 » 

D  3  +  1  3  C  C  7  3  D  3 
31:     if    fl  < E - 2  5 

a  n  d    E  -  2  5  <  B  5  C  E  8  3 

0J+1*CC8>D] 
32:     if    fl  <  E - 3  8 

q.  n  d    E  ~  3  8  \  B  3  C  E  9  3 

03  +  1+  C E  9  3  D 3 
33:     fl^B 
34:     if    H=0?QE2j 

0  3  +  1  3  Q  E  2  ?  D  3  3' 

3  t.  Q      1 

35:     i  G  1  o  3  C a b s ( N 3 

3+N 
36:     . 9  * H - 4  8 . 5  + 

.  8  8  8  8  8  4  3  6  C  N  + 

3  4  )  1 5  *  N 
37:     if    N  < - 9 8    o r 

M> -45  5  Q  C2 j  D j  + 

1  ■>  Q  E  2*  D  3  s  -3 1  a    1 
33:     Q  C3-»  03 +18t  I'M 

/  i  0 )  ■•*  Q  E  3  3  D 1 
39:     QEliD3  +  l  +  QCl 

3    0] 

4  0  :     i  n  t  (  N  )  3  V 
4  1:     HE V ] + 1  *  N  E V 3 
4  2:     if    f  1  3 8 3  H 3 3 3 

P  :  y  r<  :.  {  fl  $  [  9  j  10]  i 
3-  C  [10  3  D  3  *  Q  l  i  0  3 
D  3  3  C  f  3     0  3  3  t.  o      1 


Li  j  -»- 1  -  U  L  5  »  U  J 
4  4:     if    H < 3-15 
and    S-15<D;QC6 
D  3  +  1  3  Q  E  6  ?  D  3 

4  5:     if    H  < S - 2 8 
o  r  d    3  -  2  8  K  P  ?  Q  E  ~ 
D  j  +  1  3  Q  E  7  «  D  3 
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o.  n  d    S  -  2  5  ■-.  P  *  0.  l  8 
D I  +  1  ■*  9.  l  3  t  U  3 


.  I 


'-:  n 


4  I"  :      It      1 1 

o  n  d    S  -  3  8  s  P  5  Q  L  9  ? 

D I  t  i  +  Q  [  9  ?  0 1 
4  S  :     H  -*  P 
4  9  J     3  t  o    1 
50.5     "  new    hou  r " : 
5 1  i     for    1  =  1    t  o 

52:     cho.  r  (  159)  *P$ 

Li i  I! 
53:     next     I 
54:     "    n  e w    h  o  u  r 

"+P*[12»£13 
55:     dsp    P* 
56:     if     f  1  gi-jj  9to  ■ 

74 
57:     if    C  C 1 »  F I  >  9 

a  n  d    C  C  3  ?  F 1  >  0  j 

1 8 1  o  g  (  C  C  3  *  F 3  / 

C  C1»F]  ) *C£3> F] 
58:     if    QC1*F3>0 

and    QC3?F]>0j 

lQlog (Q C3»F3 / 

Q  CI  >F3  )+QC3>F3 
59:    CEi>F]/2*C 
60  :    Q  Ci  ?  F3  ^^Q 
61:     0  +  .J-K 
62:    for    I =-45 

t  a    -  9  0    b  y    -  1 
63:     fl'cn  +  ECI3  *EC 

II 
64:     NCI3+SCI3+SC 

1 3 
65:     if    f 1-3 3j-3 to 

68 
6  6:     R  C I  3  +  J  +  J 
6  7:     if    J  )  C  U  I  -+  C  1 4 

* F3 *Ej sf ?    3      / 

6  8  :     if    f  1  g  4  5  •?  t  q 
71" 

69:     NLI3+K  +  K 

78:     if    K>Q?  I  -^Q  C4 

I — r    v_.~»*—.£  •->        i  ' 

?  r  J  ■*  -.Vi  T    t      t 

71:     9  +  R  l  1 3  ■*■  M  L  1 1 
72:     next     I 
■•■'  3  :     c  f  3    3  5  4 

7  4:     t .  r k    1  s r c  f     3 s 
ft  $  ?  C  [  *  ]  ?  E  [  *  1  ? 


'j  ? 


±1 


*     :i  n  e  u    d  o.  y  ,:  : 
:     f  o r    1  =  1    to 


lit  11 

79:     n  €  * t     I 

8  0  :     "    n  s  w    d  a  y 
"  +  P  $  L 1  2  j  2  0  3 

31:    div    P$ 

82:     " " * F $ 

83:     B*C3j43^F$C1 

en  (F$) +1 > ienCF* 

J+23 
84:     B$C5»6I*F$U 

en CF$) +1 » len <F$ 

3  +23 
85:    oh a r ( 12?) +  F$ 

Clan  (F$)  +1  j,  lent 

F$).  +-13 
86:    sf-g   2 
87:     "WUUirtFSCle 

n  (F$)  +  1 »  len(F$) 

+  43J3ta  89 
83:  of s    2>"BBB8" 

+F$ CI  en (F£) +1 f 

len  CF$) +43 
39:  char ( 127) +  F$ 

CI  en (F$) +1 ? len ( 

F*)+13 
90:  for  J=0  to 

'-'3  > 

91:    f  o  r    Z-f  1    t  o 
.10        i 
92:     if    fl32JCCI? 

J3+R5  0  +  CCIJ  J3  f 

•? to-  94 
93:     QCI?J3+Ri: 

0  +  Q  L  I  j  J  J 
94:     if     I=3;abs(R 

*  1 0  0  )  +  R 
95:     if     IMSabsiR 

)+R 
96:     -gsb    =:  o  h  a  r  a  e  t 

e  r " 

9  7:     next     I 
98:     next    J 

9  9 :     f  o  r    K  =  -  9  y 

t  o    -  4  5 
1Q0:     if    1 1  •?  2  S 

E  [  K  ]  +  R  s  0  +  E  [  K  ]  ? 

•?  t  a    102 
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"i  r ': 


S  1  0  i" 


1  0  2 


!_■  F  i  U  f 


1  9  3  :  n  e  x  t  K 

184:  i.  f  f  I  g  2  5 
g  i-  o  8  8 

1953  __:'EhE£"^Fi  U 
e  n  i F I J  + 1 1  1  €  n  (  F  $ 
)  +43 

10  6:  if  y a  1 ( B *  C 3 
j  4  ]  J  i'i  o  d  4  =  e  ?  t  r  k 
1  5  31+vol (B*C5> 
6  ]  J  -t  U  ?  •?  t.  o  118 

18  7:  if  y a  1 ( S $ C 3 
?  4  ]  )  i'i  o  d  2 = 0  p  t  r  k 
0>31+val £B*C5> 
63  )  *  U  ?  g  t  o  1  1  8 

188:  if  ( .....  a  1  [  B  *  [ 
3  ?  4  3  J  +  1  j  iM  o  d  4  =  0  ? 
t  r  k  1 ;  y  a  1  (  B  $  1 5  p 
63  )t  U  5  g  t  a  1  1  0 

109;  t  r k  0 j  y  a  1 ( B 
$  C  5 p  6  3  )* U 

110:  r c f  N  > F  $ 

111:  ret 

112s  "  c  h  oi  r  a  c  t  e  r  " 

■ 

113:  if  R  <  i  .;,  r 
R  > 1953124! g t o 

114:  if  R>= 15625 

j g t o  117 
115:  if  R>=125p 

g  t  o    1  2  0 
1  1  6 :  .  g t o  12  3 
117:  i  n  t  (  R  ■••'  15625 

j  +M 
i  1  y  3  g  s  b  "  c  o  n  u  s  r 

s  i  o  n  '" 
1  19!  R-rt*15625->R 
12  0:  i  n  t.  (  R  /  125)-* 

M 

i  c  I  ■   t1  !:•  u   ■_•  u  r  i  .-'  f  r 

S  1  0  n  " 

12  2:  R  -  H  *  1  2  5  *  R 

123:  i  n  t.  t  R  )  -  N 
12  4:  5  s  b  '"  c  0  n  y  e  r 
s  j  0  n 


F  $  I  +  1  j 


1 2 y !  If  c n 0. r  I. N  J  - 
c  h  0.  f"  (  1  0  i  ?  c  h  0.  r  1  1 
2 5 )  * F $  C 1  e n  i F I)  + 
1  j  1  e  n  ( F  $ )  + 1 3  5 
g t 0  131 

129:  if  c h a  r  (  M  3  = 
c  h  a  r  ( 1 3 )  5  c  h  a,  r  ( i 
26) ^F*  Clen 1 F$  s  + 
1,  len(F$)+13 S 
gto  131 

130:  charCM)*F$[ 
1  e  n  i F  $ )  + 1  p  1  e  n  (  f- 
* )  + 1  ] 

131:  ret 

132:  "call"! 

133:  for  1=1  to 


134. 

char ( 159) +P 

$11,  13 

135! 

n  e  x  t    I 

136: 

"    call     -+P* 

[14, 191 

137. 

dsp    P* 

138! 

t  1  iM  8      1  0  0  0  p 

0  n 

e  r  r    "  d  i  s  c  0  n  n 

-ed 

1  '  s  '"»  ■ 

wait    1000 

140! 

ui  t  b    71 8  j  "  L " 

141 

w  a-  it    10  0  0 

142 

i     rdsi-7i7)-G 

143 

i.jfo  i  t     1008 

144. 

red    721<Z$ 

145 

y a  it    18 0 8 

146. 

if    ZJMT1 1 

13  = 

- "  1 "  ?  s  f  g    1 ; 

g  t . 

5    1  6  9 

147 

if    Z *  E 1  j 

13  = 

= "  0  "  !  g  t  0    1  4  9 

143 

g  t  0     '  d  1  5  c  0  r 

n  e  • 

:  t.  " 

149 

if    Z  $  C  2  ? 

2J  i 

t "  0  :'    and    2X-  [2 

•■  2". 

#  "  1  "  p  g  t.  0 

"  d 

.  s  c  0  ri  n  €•  c  t  " 

1 5  0 

1  f    y a  1 iZ$L 3 

<  4: 

)  <  1    0  r    y  a  1  ( Z 

*[: 

3  p  4  3  )  ■'■  6  2  !  g  t  0 

"  d 

l  S  C  O  f'i  r_i  e  c  t 

1  5  1 

f  j.-  if    i  1  n  ]  j  7  i  r 

-  .  • 

:■  i   1 
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1  w'ii  «         "  ^  r  ?: 

153!     I d t     y s i  i Z $ C 

3  .i  4  J  3  ?  F  $ 

lit-      f-'  0.  r    [_  i 
155"      W  r"  t      7  L!  1  j 

F  $  [  1  ?  i  e  n  i  F  $  j  1 

1561     pn.  r  ;'8 
.    .157:    <$ip  ^"diseon 
;  nect- " 
1  5  3  •    "  d  i  s  c  o  n  n  e  c  t 

•  l 

1    159:    for    1=1    t|o 

•  "169:    chat  '•  159) +P 

$11,  13      . 
161:    next.    I 
1 6  £ :     "    disc  o n n  g c 

t    "+P$[ll?2£I 
163:    d  s p    P  5 
164:    wait    1868 
165:    wtb    7 18 j "C" 
166:    wait    1888 
167:  .cli    7 
168:'  of*    1 

1  6  9  ■•     i  ret 

178:     "startup": 

171:    cli    7 

172  i    for    1=688 

t  o    1    b  v    - 1 
173:    fxd   8<dsp 
•  Startup 

I  n  "  ?  I  j-  "  5  €'  G  0  n  d  3  . 


1  84 

U   1   i'i 

-.•  a-   r  .i    i 

,:.  ?-LtJ    J 

F-i 

L-2888J 

1  Q  J 

t    t  r  k 

Uidt 

.  8  j  H  $  >  C  C  * 

J  <EC*3  i 

Q  [ 

t]   rSI* 

I 

}S6 

ft*>5 

■r 

i  o  7 

- 1 ;? 

3 

183! 

■3 1  0 

"  r  t-  £  e  t 

189. 

r    "  res 

e.t "  :    • . . 

198: 

:    cli 

i'                -i 

191. 

'    1  o  r 

1  =  1    to 

,  32 

! 

192. 

!    c  h  a  r 

U59)*P 

$$  C  I  5   I J 

193: 

.    next 

I 

1  9-4 ' 

"    rig 

set 

"  *  P  $t  1 3  > 

191 

195 

•    dsp 

P$ 

196' 

1     w  a  l 1 

1088 

197: 

:    w  t  b 

7 1 8 1  "  C  " 

198 

.    w  a  i  t 

1888 

199: 

.    cli 

t 

208" 

if    f 

198=0; 

c  f  • 

5 

281 

'      f'fit 

1 ,  2  f  8 . 2 

282: 

:     r  e  ivi 

7 
i 

283' 

.-    llo 

i' 

284" 

%   wrt 

.  "TS" 

285: 

!      3tO 

6 

*3684 

17  4:  w  a  i  t    1 8  8  8 

175:  next    I 

176:  dirt    PS  C323 

17,":  for    1  =  1    to 

178:    char ( 159) *F 

$  [  I  >  I  ] 
179:     next     I 
138:     "    startup 

:!*P$Ci2?  28] 
131:    dsp    PS 
182:    dirt    BSL121  ? 

R  C-90: -45J ? H  E- 

98:-453 
LS  3 :    d  i  fi    fl  $  C 1  £  3  ? 

C[18?y:23j?E[- 

9  @  ;  -  4  5  3  s  Q  [  1  8  j 

8*233 j  S [ - 9 8 : - 

453 
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Appendix  II.   Data  Transmission  Program 


u  i     d  i  i'":    H  J;  [  4  0  "J  * 

F  $  [2900]  j  j  £  [  I '.'.'  ] 
j  P  $  E 1 6  ]  ?  Z  £  C  4  j 

1  =     f  in     1  ?  £f'8.  2 

2  :     f  o  r    I  -  i    t.  o 
40?  ;'  -"-fl*  [I  f  I]  ? 
next    I 

3  :    f  •:<  d    0 

4  s    g  s  b    "  *  " 

5  :    3  s  b    u  * " 

6  s    p  r  t     "  L  o  o  k  o  u  t 
Mount  o.  in" 

7  '•     p  r  t     "  *  *  0  o.  t  a 
R  s  ^iu  est**" 

8:  3sb  "*" 
9  :  3  s  b  "  * " 
10:    s  p c    2 

IIS      <3Sb      "*" 

12s    p  r  t    " ** I n  s  t  r 

u  c  t  i  o  n  s  *  * " 
13:    3 s  b    " * " 
14=    spc    1 
15s    p  r  t    " *  P  r  e  s s 

CONTINUE" 
15:    p  r t    " a  t '  t e r 

r  e  :i  u  e  s  t  e  d " 
l?s    prt     "data 

i  s    e  n  t  e  r  e  d  .  " 
13:    s  p c    1 

1  9  :    p  r  t    :'  *  E  n  t  e  r 
d  a  t  e  s  " 

20:     prt     "  a  s    ivi  ro  d  d 

21 1     spc    1 

2  2:     prt     "  *  fl  n s w e r 

'1  U  6'  S  t  1  0  f"!  " 

2  3  :     prt     :'  w  1 1  h    y 
o  r    n . 

2  4:     1  d  {•    6  3  ?  B  $ 

26:     g  s  b    i:  *  !1 
o  r    I  n  p  u  t  * " 

2  9  :     s  p  c     1 

3  @ '     e  n  p    "  ■*  U  o.  n  t 

fl  $  [  4  0  ?  4  6  J 

-;  L  *      J  i  ■)  p     f  j.  ?  1  J  #  I 


.  j  2 :      if     H  4  L  4 0  - 
40.1  -  ::  ':■■  "I  "  1  '  *Z$  E 

i >  n  ? •? t o  us 

33:     if    R  $  C  4  0  ? 

40 ]  = "  n  "  5  "  u  ,:  -rZ$  C 

1 5  1 3  >  3  t  o    3  6 
34:     "    fins w e r    v 

o  r    n       "  ->P'I-  ?  3sb 

"  i  n  P  L4 1  " 
3 5s     if    f  1  g 0 ?  c f  3 

0 5  -3 1  o    2  9 
36:     spc    1 

3  7 :    e  n  p    "  -*T  o  d  a  v  s 

d  a  t  e  :  j  fl  $  C  8  ? 
131 

38:     .j,v,p  flgl3#l 

39:    spc  1 

40:    prt  " *  S  y s  t  e n 

s  t  a  r  t  u  p  " 

41;    prt  "date 

'.-j  a  s  :  " 

42:    prt  B t  C 1 »  6 ] 

4  3  :     s  p  c  1 

44;    e  n  p    "  -*  14  a  n  t 
t  o    r  e  '■.•'  i  s  e    s  t  a  r  t 
u  p    d  a  t  e '?  "  t  fl  $  C 7  ? 
7] 

45:    jnp    t  l3l3#l 

46:  if  fl*  E7>  7]  =:' 
y"  ;-3tq    50 

4  7:  i  f*  fl  $  £  ? ,  ,-•  ]  =  " 
n  :'  5  B  *  E 1  j  6 1  *  fl  $  E 1 
j  6  3  j  3 1  o    5  3 

4  3:     "    Answer    y 

Q  r      N  ii-'f  1  3  S  b 

"  HIP  u  t  " 

4  9:     if     f  1  -3 0 5  c f  3 
9  ?  3 1  o    4  3 

50:     spc    1 

51:     enp    :'  +St  a  rt  u 

p    d  a  t  e  :  "  ?  fl  $■  E 1  ? 

63 
52s    j a p    f 1 3 1 3  #  i 
53s     it     '-.j  a  I  I  fl  $  [  9  ? 

9  J  )  >  4  5  3 1  o    5  9 

5  4:  s  t  r ( 8  +  v a  1 ( fl  $ 
[  8  -  .9  ]  ■  j  *  D  $ 

C  C  :      U?  Li!'    :J  ■'HI  Li 

b  3   2  :''  ] 


r-    i 
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1  +  :•■ 


i  U  rt  i  fl  $  [  I  + 


0  9  :     st  r  i'  mq  i  (  H$  Lbs 

,  9  j  }  -  4  )  .+  n  $ 

(,■  8  "     p£  C2- >  ' ' :  ]  "'  H $  [  2 

6  ?  2  7 1 

61:    a  $  l  1  2  ?  1  ?  ]  ■*  fl  ■$ 

C  3  0  j  3  i  1 
62:     R$ [ 19 ?  i  i] ->fl$ 

[2  3 j 29] 
6  3 •■.:     i  f    u  o.l  (  fl  $  [  i  a 

?  It]  )  =  1 5  3  t  g    6  3 
64:     *  t.  r  (  u  a  1  (  R I  C 1 

8  j  11]  )  -  1 )  ■*  D  $ 
65=     D*[2?3]+fl*[3 

5*36] 
66:    fl*  [85 91  +  fl*  C3 

3  ?  34] 
67":     fi$C12>  13]*fl* 

[37,383^ 
6  3 :     3 t  o    7  7 
65:     "31 "+fi*  [35? 

36] 
78:     if    ya I  iR*  CS"> 

91  )  =1 5  3to    74 
71:    st r fOctl (fl$ C3 

j  93.)  -1 3  +  0$ 
72:    D*C>j33+h*C3 

3*341 
73:-    3  to    77 
74:     "12"*fl*C33> 

34] 
75:    st.  r  (v a  1  (fl*  [1 

2? 13] i-lJ+O* 
76:     D  *  C  2  s  3  3  +  fl  *  L  3 

7  J  o'dl 

77:    R* CI i 6] * J$ CI 

>63 
73:    ft*C26*3il+J* 

ITi  12] 
79>s     3sb    "Julian" 
38:     if    f  1-92  5  cf? 

25  R*C1  ?  6]  -fl*  [26 

<31] 
31:     for    1=27    to 

31.   by    2  ' 
32:     if    n  u  n  i  ft  $  C  f .« 


I-1]-*R*CI?  I]  ; 

,:  3  "  ■*  R  $  [  1  -  1  ?  I  -  1 1 


+  6  ?  1  -H  b  ]  *  fl  4-  L.  I  +  7  J 

I  +  7  ]  ;  "  8  '  ^  fl  $  [  I  + 

6  ?  I  +  6  ] 
34:     next     I 
35:    spc    1 
S  6  s    pt  t    " * F  i  I  g s 

a  y  o.  1 1  a  b  1  e  " 
37:    prt    fl*C26< 

38] 
33:     spc    1 

8  9 :    e  n  p    "  ■>  F  i  r  s  t 
do.t  e.:  "  j  fl*  C14  j 
19] 

96:    JMP    flil3#l 
91:    fl*[14;  193+J* 

t7t  123 ;fl*[265 

313 *J* CI  5 63 
92:    3.sb    "  Jul  i  an" 
93:     if    fl*25cf-? 

25"    Date   too 

early    '"fPMi  3sb 
in  nut 
94;    if   f  1  -30;  cf  3 

0*3to   88 

95:    ft*rE33v3B'I*J* 

C7» 12I»fl$[145 

19]  ?M  CI »  63 
96 :-  ?sb    "  Jul  ian" 
97:     if:'f  1*2>  cf  3 

2? "    Date    too 

late";  *$P*?*sb 

"  inpu# " 
98:  if  f  l90j  of  -3 

0  5  3 1  o  8  8 

9  9  :  s  p  o  1 

t  Q  0  :  e  n  p  "  *  L  a  s  t 
date : " »  fl*  [28' 
£53 

1 0  1  :    j  i'i  p    f  i  3  i  3  #  1 
182:    fl$C20?25]-^J 

*C7?  123  jfi$C14i 
193  +  J*C1  <63 
1S3:     g  s  b    "  j  u  1  i  a  ri 


194:'   if 

C  f  3      2  '- 


i  3ii  ' 

Date 


* ; 


3  e  o       i  n  p  u  t 
185:     it    f 1 3 8  « 

r.  f  A      f\  t  3 1.  Q      :'  9 
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*  L  >''  j  1  2  J  j  H  ■$  L  2  U 
25J+J*C1j6] 


1  ft  7 


i  a ;-; 


U  i    I 


If     fifii 

c f  ■?    2  5  "    Do.  t  e 
too    late       "*PSj 
g  s  b    "  i  n  p  u  t  " 

I    S  9    i  if  f    I    3  6    ? 

,-  f  g     y  ;  g  t.  0     9  9 
110:     r c f    6  3 » fl $ 
ill:    y a  I ( fl  *  [  1 4 1 

1 5  3  )  +  P 
112J     val(fl*C16j 

17] J+Q 
113:  .  val (fl*  [28 j 

213  3 *R 
i  1  4  :    y  a  1  ( fl  *  C  2  2  ? 

233  J  +S 
115:    d  s p    " D i  a  1 

s  i  t  e  .    C  o  n  t  l  n  u  e 

w  h  e  n    c  o  n  t  a  c  t  . 
116:    stP 
117:     d  s  p    '*  W  o  r  k  i  n 

g  ,  " 

118:     w-tb    717?  "L" 
119:    ua it    1 000 
120:    if    2 $  [  1  j 
1 3  =? "  1 "  i  g  t  o    "  r  e  a 

1 1  i  p\  e  " 


121 

122 

Tr 

124 


g  S  b     "  *  " 
p  r  t     "  *  D  a  t  a 
i  n  s  f  e  r  *  * " 
gsb    "*" 
spc    1 
i  f    P  >  R  J  -g t  o 


1  ■-:  1 


f  r 

1    ~;  Q 


131 


8  r 


+• ,-, 


r    I=P    tc 


•g  s  d      t  r  a  n  s 

r"i  e  X  t     I 
g  t  o    1  3  7 
for    I=P    to 


•g  •=  h 


t.    r 


r  u  riiT 


i        i, 


i  :■■  i 
1  J  d 
1  3  9 
140 
14  1 

t  e 
142 
143 
144 

"1 


r  I  f  .:■•  i.        i 

W  0.  1  t      190  0 

wtb    7  17? "C " 
w ait     1000 
cli     ? 
d  s  p    "  C  o  n  p  1  6 


end 

"  t  r  a  n  •=.  f  e  r  "  '• 
i  f  I  i'i  o  d  4  =  0  5 
Z$C2<2]  ; 

s  t  r  ( 3 1  +  Q  J *  D  $  i 

g  t  o    1  4  8 
14  5:     if    I n o d 2  =  0  I 

"  0 "  *  Z  $  C  2  s  2  3  ; 

s  t  r  ( 3 1  +  Q  )  *  D  $ » 

gto    148 
146:     if     (1  +  13  i'i o d 

4  =  05  "l"*Z*C2i 

23  J st  r (Q) *B$i 

g  t  o    1 4  8 
147:     "9"*Z*[2j 

23  1st r £Q3 *0$ 
143:     D*C2»33*Z$C 

3  j  43 
149:     "Tr a  c k       » 

File         :"*p$[i? 

16] 
150:     Z$C2j23^P*[ 

7*73  ;Z$[3>4]-P* 

C 1  4  .-  Ip3   i 
151:    P,rt    P$ 
152:     "V+F$ 


53  = 


p  c  t 


154:  I,  i  a  1 1     1  0  0  0 

155:  r<\s    7  ?  6  4 

156:  wait    3 9 0 0 

15  7:  .j  n  p    b  1 1  (  5 

r  d  s  (  7 )  3 

153:  w r t    7  3  1  ?  Z ; 

159:  i,i  ait     100  0 

1  lZ  m  »        i  ,v  n      !•-■  i  t    i  A 
i  D  L'  •        ■-'  I'i  P       EJ  j.   v    '.  ■+ 

r  d  s  (7  )  3 
161:     red    7 3 1 .-  F : 
1  6  2  >      r  fl  -■     7  i  fi 


+         L-      I.' 


a 1  fZ$  C 


1   :-,  d.  J 


c  t    >.,'  a  1  ( Z  $  C 
3  ?  4  3  3  j  F  $ 

J   «         Pit        I     *   L  L   J    4  J 
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1  ,.: 


y  4  5   If  ''  ■  ii  1  i.  J  %  L 
?  2 1  I  >  y  c  1  (  J  $  C  7 1 

8  1  3  ?  S  f  -:.i  2!  3  X  0 


o.  n  d  1=2  a  n  d 
val  (A*C  12?  13]  )  ri 

0  d  4  #  9  ?  3 1  o  173 
16  3:  if  Q  =  2  9 

■3 1";  d  1=2?  g  t  o  i  7  3 
179:  if  Q=39 
a  ft  d  (1-4  o  r 
1=6  or  1='?  or 

1  =  1 1  j  3  •=<  t  o  i  7  3 
1  7  i :  if  Q  =  3  1 1 

3  t  Q      i  <   j 


17 


14 


174 


J.  i  D 

177 


Q  +••!.■*  Q  S  '3 1  a 


1  *Q 

r  e  t 

r  e  o.  i  i.-  i  i'i  e  » 
SPC  1 

fs  rt    "*Press 
S  T  Q  P  t  a   e  n  d 

r  e  a  1  - 1  i n .-• .  " 
173:  spc  2 
179:  p.-t.  723 
1 3 9 :  u a  it-  1  8 8 3 
131:  ras  7>64 
132:  yait  3908 
13  3:  j rt  p  b  i  t ( 5  * 

rds(7) 3 
i34:     i.i  rt.    731 »Z$ 
135:     r*s    7*@ 
136:     j  ci  p    b  1 t  i  4  > 

rds £7)  3  " 
137:     red    731. 1 » 

Fb  N 
133:     fxd    2?dsP 

"IJ:  %H-  "dbri 
B: " >N>  "dbn" 
!  8  9 !    '...j  a  i  t.    299 
1 3  9 :     ?  t  o    1  8  6 
131:     "  j  u  1  i  o.  n  "  : 
192:     if  ual  U$C5 

?  6  3  3  >  val (J* CI  1 j 

1  2  3  J  s  5  f  9    2  j  ?  t  o 

197 
193:     if     ual (  j$  [3 

?  6  ]  J  < v  a  1  (  J  $  [  1  1  ? 

1  2 3  3  ?  =  t o    19  7 


1^3:     if    val  i.J$tl 

j  2  ]  j  <  ■•,'  a  1  (  J  $  [  7  j 

8 ]  J  5 g t  o    137 
196:     if    ',■  a  I  (  J  $  L  3 

1 43  3  ) -  y  a  1  (  J  $  C  9  j 

1  9  ]  3  ?  s  f  s.    2 
197:     ret 
193:     "*1*: 
139:     p  r t     "****** 

2  0  0 :  r  e  t 

2  9  t !  :'  i  n  p  u  t  "  : 

202:  spc    2 

293:  pri    "XXXXXX 

294:    prt     "     I  rival 

id    ent py : 
2W5*.     Prt    P$ 
206:    prt    "XXXXRX 

K)  '..'  '..•  '..'  '..'  '..'  K>  >..'  ■..•  '..«  » 

207:    spc    l 
2  0  8 :    s  f  5    9 
289:     ret 
*24831 
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Appendix  III.   Data  Printing  Program 


l"i  i       ■■■!  ■',  ,v,     n  ■*"  rjii  , 

F  £  [  2  0  80]  5  p  $  l  i  £  1 
i  »     ent     " Ent g r 
d  e  s  i  r  e  d    t  r  a  c  k .  " 

2  *     j  a  p    t  1  5  1  3  #  1 

3  :     e  n  t     "  £  n  t  €  r 

f  i  r  s  t    f  i  1  e .  "  ?  B 

4  ;     j  !M  p    f  1  3  i  3  #  1 
■_'■  ■     e  n  t.     "  E  n  t  e  r 

1  a  s  t    f  i  1  e .  "  j  C 
6  :    J  n  p    f  1  -3 1 3  #  1 
?  •     f o r    1=8    t o    C 
8 '•     t  r  k    B.J  1  df    Is 

F*     ■ 
9  i    s  p  c    4 
10s     "  T  ra c  k  "  *P *  [  1 

j  5] 
11:     s  t.  r  i  fl  1  *  P  $  £  6  j 

7] 
12s     " ,     File"+.P*I 

8  f  133 
I3s     str(I)+P*C14 

?  16] 
14:     prt    P$ 
15s     "  Do. t  o.    do. %  e  : 

"  *  P  $  E 1 »  1 2  3 
16?     F$E1j43*P$C1 

3  j  16] 
17:    p  r  t.    p  $ 


i  d 


o  r 


=  11    to 


1  e  n  ( F  $ 


19:     if    F$EJ*J3=c 

h  q  r  '.  1  2  6  i  ?  c  h  o.  r  £  1 

3)  *F$ [Jj J] 
20:     if    F $  l J ?  J ]  =  c 

h  o  r  (  1  2  5  j  !  c  h  o.  r  (  1 

3 )  *  F  f  E  J  s  J  3 
2  1  :     n  e  x  t    J 

2  3:     " N  i  n c h e  1  s e a 

"■»P*Cti  12] 
24!     F* [1 ? 41 +  P$ El 
c<  ?  1  6  ] 

26!     19* K i  g •=. b 


3  j  1  6  ] 
3  0  s     p  r  t     P  j 
3 1 !     p  o  s  ( F  $  ?  "  B  B  B  3 

,;  3  +  5  *  K  \  -3  s  b    "  d  e  c 

ode" 
3  2  :     n  e  •■•  t     I 
3  3  :     d  s  p    "  F  i  n  i  s  h  e 

d.  " 
'.'  4 :     e  ft  d 
35:     "  d  e c o  d e  " : 
3  6  :     f  o  r    L  =  0    t  c 

37:    spg    1 

33:     "-"+p$[5<5J 

3  9 :     " :  "  *  P  $  C 1 0  > 
103 

4  0:     L  *  1  8  y  +  S 

4  1:     ( L  * 1)  *  1 0  8  ■*  T 
4  2:     it     L  =  0 ? " 0 0  0  0 

-010@"*P$ClJy] ; 

3 to    49 
4  3  :     s  t  r  (  S  3  *  D  $ 
44:     if    S < i 0 0 8 ; 

"0">p$cii  i] ; 

Q*C2?4]*P*C2< 

43  ! 3 1 o    46 
45:     D*E2:.53*P*E1 

»43 
46:     str(T)*D$ 
4  7:     i  i    T <  1008? 

"eu+F"$[6>6] ; 

D  $  E  2  5  4  ]  t  p  $  [  7  ? 
93  ?  3 1  o    4  9 
48:     D  $  E  2  >  5 3  *  P $  E  6 
>  93 

4  9:     p  r  t.    P  *  [  1  ,  1  0  ] 
■j  y  :     f  o  r    M  =  1    t  o 

18 
51 :     gsb    "numbers 

52:     if    R  =  0  j  -g  t  o 

65 

5  3  :     f  >::  d    2 

5  4:     if     h  -  3  >•  R  ■  - 
100*R  ?  p  rt     "  CJ    r 
d  b  iv! '  ?  R  ?  3 1.  o    -  5 


r  *  L  1  ?  I  _ 
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It  D  0.  ij 


i  d  "  , 


3  T 


8  :     if    M  =  4  I  -  1  * 

h'  -r  R  j   p  i     t  'I  8  J 

d  b  !v!  "  .»  R  5    -3  t  0      6  5 

9:     if    M=55prt 

"  #  1  Q    d  b    f  o.  d  e  s "  j 
5 t  o    6  5 
i  f    M  =  6  j  p  r  t 
"  #  i  5    d  b    f  a  d  e  s  "  -> 
R  5  •=?  t  o    6  5 
61:     if    [1  =  7?  P  r  t 
"  #  2  8    d  b    fades"? 
R  ?  =>  t  o    6  5 
6  2:     if    M  =  8  j  p r t 
"#25    db    fades"? 
R  ?  =i  t  o    6  5 

if    n=9?prt 
"  #  3  y    d  b    f  a  d  e  s  " < 


6  4 


•5 1  o    6  5 


i  f    r -1  =  1 0  5  p  r  t 
" * 3 y  stew    S  t  a  r t u 
p 

65:    next    M 
"  6  :     n  e  x  t    L 

5  p  c  i 
b  a  :  p  r  t  "  S  I  G 
DISTRIBUTION" 

6  9:     prt     "si? 
p  w  r      #  s  a  w  p  " 

7  0:     for    N =-90 
to    -45 


:-  2s     K  •*■  £  tK  j  9 1  o    9  2 

.'  .;:  »       It      r?[  K   !-  ii  j  K  + 

23  #  c  h  a  r  ( 1  2  7  J  ? 

5 1  0    8  6 
8  4  :     n  u  w  1  F  $  f  K  +  i  5 

K  + 1 3  )  ■*  R 
8  5  :     K  +  2  ■*  K  5  ¥  t  0    9  2 
86:     if    F s [ K  +  3 ?  K  + 

3  3  ft  0  h  a  r  i  I  2  7 )  5 

■3 1.  0    8  9 
8  7  :     n  u  n  (  F  $  C  K  +  i  ? 

K+l 1 3 *1 25+nuw CF 

$ CK+2i K+23 ) *R 
88  :    K+3-+KS  9ta    92 
89:     if    F£CK+4jK+ 

4] #char  C 127) ? 

3 1  a    9  2 
90:     nuw 1 F£ [K+i > 

K  +  13  J*15625+ 

nun  (F$  CK  +  2  ? K  + 

23  )*t25  +  nuwi:Fs-[ 

K+l? K+l 3 )*R 
91:  K+4+K 
92:  ret 
*31473 


n  ui'i 
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